10 POKE 53280,0:POKE 53281,1:PRINT CHR$(30)CHR$(14)CHR$(147)
20 PRINT"   [196]ER [196]ISKETTENINHALT WIRD IN [203]LEIN-"
30 PRINT
40 PRINT" SCHRIFT AUF EINEM [196]RUCKER AUSGEGEBEN."
50 PRINT"    [194]ITTE "CHR$(18)"'[196]RUCKER'"CHR$(146)" EINSCHALTEN
60 [153]
70 [153]"       UND (null)ASTE DRUECKEN !
80 POKE198,0
90 GETA$:M=M+1:IFM=10THENM=0
100 PRINTMID$("[146]",M/5+1,1);
110 PRINT"[203]LAUS [199]RABIETZ,[193]M [215]EINBERG14,3108 [215]INSEN"
120 PRINT"             [198]ILE [208]RINTER               "
130 IFA$=""GOTO90
140 PRINT"       [206]AECHSTE [196]ISKETTE - "CHR$(18)"'[198]7'"
150 PRINT
160 PRINT"                    [197]NDE - "CHR$(18)"'[198]1'"
170 POKE198,0
180 GETC$:IFC$=CHR$(136)THEN210
190 IFC$=CHR$(133)THENPRINT"[147]":END
200 GOTO180
210 DIM F$(152)
220 DIM G$(152)
230 PRINT CHR$(147)CHR$(31)CHR$(142)
240 OPEN9,8,0,"$"
250 GET#9,A$,B$:N0=0
260 GET#9,A$,B$:Z0=0:X$=""
270 IFST<>0THEN350
280 GET#9,A$,B$
290 N$=CHR$(0)
300 G$=RIGHT$("      "+STR$(ASC(A$+N$)+ASC(B$+N$)*256),6)
310 GET#9,A$:IFA$=CHR$(34)THENZ0=SGN(Z0+1)
320 IFA$=""THENN0=N0+1:N1=N0-1:GOSUB360:GOTO260
330 IFZ0=1THENG$=G$+A$
340 GOTO310
350 CLOSE9:GOTO470
360 IFN0=1THEN440
370 IFLEN(G$)=6THEN460
380 AA$="":FORI=8TO24:C$=MID$(G$,I,1):IFC$=CHR$(34)THENI=24:GOTO400
390 AA$=AA$+C$
400 NEXTI:G$(N1)=LEFT$(AA$+"                  ",18)+LEFT$(G$,6)+"  "+ID$
410 H1$=MID$(G$(N1),22,3):H2$=LEFT$(G$(N1),16)
420 H$=H1$+" "+H2$+" "+MID$(G$,26,3):PRINT"       "H$:A=A+1:F$(A)=H$:PRINTCHR$(142)
430 RETURN
440 CC$=RIGHT$(G$,24):ID$=MID$(CC$,20,2):PRINT"       ";CC$:RETURN
450 PRINT
460 PRINT"    ";G$;" BLOECKE FREI.":CC$=CC$+G$+" BLOECKE FREI.  "+DA$:RETURN
470 OPEN1,4
480 PRINT#1:CMD1 :PRINTCHR$(27)CHR$(15);:PRINTCHR$(27)"S"CHR$(0);
490 PRINT#1,CHR$(27)"A"CHR$(5);"NAME : ";MID$(CC$,2,16);
500 PRINT#1,"     NR. : ";ID$;
510 PRINT#1,"      "MID$(CC$,28,16)
520 PRINT#1,"==============================================================";
530 PRINT#1,"================="
540 IFA/3<>INT(A/3)ANDA-3*INT(A/3)=2THENA=A+3:GOTO560
550 IFA/3<>INT(A/3)ANDA-3*INT(A/3)=1THENA=A+3:GOTO560
560 FORX=1TOINT(A/3)
570 PRINT#1," "F$(X);"   ";
580 PRINT#1,F$(X+INT(A/3));"   ";
590 PRINT#1,F$(X+2*INT(A/3))
600 NEXT:GOTO620
610 PRINT#1,MID$(CC$,28,16)
620 CLOSE1
630 PRINTCHR$(30)CHR$(14)CHR$(147):RUN140